<%
dim con
Set Con = Server.CreateObject("ADODB.Connection")
con.open "Driver={SQL Server};Server=web\sqlexpress;Database=master;User ID=sa;Pwd=taksheel"
id = Request.queryString("id")
sql = "select * from taksheelnews where id ='"&id&"'"
set rs = con.Execute(sql)
if not rs.eof Then
title = rs(1)
des = rs(2)
End If
sql1 = "select * from taksheelnews order by postdate"
set rs1 = con.Execute(sql1)
%>
Welcome to Taksheel
